module Rezerwacja where
import Sala
import Seans
import System.Time

data Rezerwacja = Rezerwacja ID ID ID Row Col CalendarTime

instance Show Rezerwacja where
	show (Rezerwacja sid seans sala row col dat) = "* Rezerwacja numer \t" ++ show sid ++ "\n" ++
								"\t Seans \t\t" ++ show seans ++ "\n" ++
								"\t Sala \t\t" ++ show sala ++ "\n" ++
								"\t rzad \t\t" ++ show row ++ "\n" ++
								"\t miejsce \t" ++ show col ++ "\n" ++
								"\t Data \t\t" ++ calendarTimeToString dat ++ "\n"

rezerwacjaID :: Rezerwacja -> ID
rezerwacjaID (Rezerwacja x _ _ _ _ _ ) = x

rezerwacjaSeansID :: Rezerwacja -> ID
rezerwacjaSeansID (Rezerwacja _ i _ _ _ _ ) = i

rezerwacjaSalaID :: Rezerwacja -> ID
rezerwacjaSalaID (Rezerwacja _ _ i _ _ _ ) = i

rezerwacjaRow :: Rezerwacja -> Row
rezerwacjaRow (Rezerwacja _ _ _ r _  _ ) = r

rezerwacjaCol :: Rezerwacja -> Col
rezerwacjaCol (Rezerwacja _ _ _ _ c _ ) = c								

rezerwacjaDate :: Rezerwacja -> CalendarTime
rezerwacjaDate (Rezerwacja _ _ _ _ _ r) = r